home *** CD-ROM | disk | FTP | other *** search
/ FishMarket 1.0 / FishMarket v1.0.iso / fishies / 551-575 / disk_559 / apig / apiglib_v11.lzh / e7_images2.rexx < prev    next >
OS/2 REXX Batch file  |  1991-09-28  |  3KB  |  89 lines
  1.  
  2. /* same as e7_images.rexx, but the Image is hard-coded */
  3.  
  4.  
  5.  x = addlib("apig.library",0,-30,0)
  6.  
  7.  call set_apig_globals()
  8.  
  9.  portname = "example7i2_port"
  10.  p = openport(portname)
  11.  call set_apig_globals()
  12.  
  13.  scrtitle = "Hey Buddy, Yea You,  This is Your New Screen  !"
  14.  wintitle = "This is your title"
  15.  winidcmp = CLOSEWINDOW
  16.  winflags = WINDOWCLOSE+WINDOWDRAG+WINDOWSIZING+WINDOWDEPTH+GIMMEZEROZERO
  17.  
  18.  scr = openscreen(0,0,640,400,3,4,5,LACE+HIRES,CUSTOMSCREEN,scrtitle)
  19.  
  20.  /* open window */
  21.  w1  = openwindow(portname,0,0,640,400,2,4,winidcmp,winflags,wintitle,scr,0,0,0)
  22.   rpw1  = getwindowrastport(w1) 
  23.  
  24.   call hardcodeimage()
  25.  
  26.   x = drawimage(rpw1,image,270,90)
  27.   z = pitext(rpw1,200,112,"This is small a IFF image",1,2,JAM2,0,0)
  28.   wait 2 secs
  29.   z = clearscreen(rpw1,0,0)
  30.  
  31.   do x = 10 to 600 by 50
  32.      do y = 10 to 380 by 16
  33.         z = drawimage(rpw1,image,x,y)
  34.      end
  35.   end
  36. wait 1 secs
  37. z = pitext(rpw1,250,112,"Im DONE ...",1,2,JAM2,0,0)
  38. z = pitext(rpw1,180,122,"You Can Close The Window Now",1,2,JAM2,0,0)
  39.  
  40. exitme = 0
  41. do forever
  42.  
  43.      x = waitpkt(portname)
  44.   
  45.      do forever 
  46.         msg = getpkt(portname)
  47.         if msg = '0000 0000'x then leave
  48.         class = getarg(msg,0)
  49.         if class = CLOSEWINDOW then exitme = 1
  50.         x = reply(msg,0)  
  51.      end  
  52.    if exitme = 1 then leave
  53.    
  54. end
  55.  
  56.   x = freeimage(image)
  57.   say " image mem freed = " x   
  58.   
  59.   a =closewindow(w1)
  60.   a =closescreen(scr)
  61.  
  62. exit
  63.  
  64. hardcodeimage:  /* hard code a check mark image */
  65.  
  66.   /* makestruct & makepointer are the same function,  */
  67.   /* I like the names for readability                 */
  68.  
  69.   image = makestruct(0,51,0,MEMF_CLEAR)
  70.   imagedata = makepointer(image,0,72,MEMF_CHIP)
  71.   
  72.  
  73.   x = setvalue(image,0,2,'n',0,0)            /* left edge   */
  74.   x = setvalue(image,2,2,'n',0,0)            /* top edge    */
  75.   x = setvalue(image,4,2,'n',16,0)           /* width       */
  76.   x = setvalue(image,6,2,'n',9,0)            /* height      */
  77.   x = setvalue(image,8,2,'n',4,0)            /* depth       */
  78.   x = setvalue(image,10,4,'p',imagedata,0)   /* imagedata   */
  79.   x = setvalue(image,14,1,'n',255,0)         /* planepick   */ 
  80.   x = setvalue(image,15,1,'n',255,0)         /* planeonoff  */
  81.   x = setvalue(image,16,4,'p',0,0)           /* next image  */
  82.   call export(imagedata,('0000'x ||'0003'x ||'0033'x ||'0063'x ||'0CC3'x ||'0783'x,
  83.       ||  '0303'x ||'0003'x ||'FFFF'x ||'FFFF'x ||'C000'x ||'C030'x ||'C060'x ||'CCC0'x,
  84.       ||  'C780'x ||'C300'x ||'C000'x ||'0000'x ||'FFFF'x ||'FFFF'x ||'FFFF'x ||'FFFF'x,
  85.       ||  'FFFF'x ||'FFFF'x ||'FFFF'x ||'FFFF'x ||'FFFF'x ||'0000'x ||'0000'x ||'0000'x,
  86.       ||  '0000'x ||'0000'x ||'0000'x ||'0000'x ||'0000'x ||'0000'x),72)
  87.  
  88. return 1
  89.